perm filename DIT[1,DBL] blob sn#002344 filedate 1972-09-29 generic text, type T, neo UTF8
00100	BEGIN
00200	INTEGER X,Y;
00300	REAL Z;
00400	PRELOAD_WITH [10] 0,1,2,3,4,5,6,7,8,9,10;
00500	INTEGER ARRAY A[1:2,1:10]
00600	;
00700	X←3
00800	Z←5.31
00900	WRITE(A)
01000	WRITE(A,X,Z)
01100	READ(Y)
01200	Y←2*Y
01300	WRITE(Y)
01400	END.
01500	G
01600	EXIT
01700	*G